﻿Imports ServiciosAT

Namespace SIREOS
    Public Class EmpleadoWSR

        Function listarEmpleados(oEmpleadoBE As SireosWSEmpleado.Empleado) As DataTable
            Dim oEmpleadoWS As New SireosWSEmpleado.WSEmpleado

            Dim olistarEmpleadoRequest As New SireosWSEmpleado.listarEmpleadosRequest
            Dim olistarEmpleadoResponse As New SireosWSEmpleado.listarEmpleadosResponse

            olistarEmpleadoRequest.empleado = oEmpleadoBE
            olistarEmpleadoRequest.empleado.codLocalSpecified = True
            olistarEmpleadoRequest.empleado.codAreaSpecified = True
            olistarEmpleadoRequest.empleado.codCargoSpecified = True
            olistarEmpleadoRequest.empleado.estRegistroSpecified = True

            olistarEmpleadoResponse = oEmpleadoWS.listarEmpleados(olistarEmpleadoRequest)

            If Not (olistarEmpleadoResponse.listaObjetoNegocio.empleado Is Nothing) Then

                Dim tot As Integer = olistarEmpleadoResponse.listaObjetoNegocio.empleado.Count
                Dim dt As New DataTable
                dt.Columns.Add("CodEmpleado")
                dt.Columns.Add("Empleado")
                dt.Columns.Add("NroDocumento")
                dt.Columns.Add("NomLocal")
                dt.Columns.Add("NomArea")
                dt.Columns.Add("NomCargo")
                dt.Columns.Add("CondiSueldo")
                dt.Columns.Add("Estado")
                For i As Integer = 0 To tot - 1
                    dt.Rows.Add(olistarEmpleadoResponse.listaObjetoNegocio.empleado.ElementAt(i).codEmpleado, _
                                olistarEmpleadoResponse.listaObjetoNegocio.empleado.ElementAt(i).nomEmpleado, _
                                olistarEmpleadoResponse.listaObjetoNegocio.empleado.ElementAt(i).nroDocumento, _
                                olistarEmpleadoResponse.listaObjetoNegocio.empleado.ElementAt(i).area.nomArea, _
                                olistarEmpleadoResponse.listaObjetoNegocio.empleado.ElementAt(i).cargo.nomCargo, _
                                olistarEmpleadoResponse.listaObjetoNegocio.empleado.ElementAt(i).cobCondicionSueldo, _
                                olistarEmpleadoResponse.listaObjetoNegocio.empleado.ElementAt(i).estRegistro
                                )
                Next
                Return dt
            Else
                Return Nothing
            End If
        End Function

    End Class
End Namespace